home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / JB.1520-3.B.SFX / gpo labels (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  3KB  |  91 lines
  1. 1000 REM*-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-*
  2. 1010 REM*  1520 LABEL MAKER             *
  3. 1020 REM*  BY ROBERT LAPRAD  [NASHKAT]  *
  4. 1030 REM*  COMPUSERVE ID [74406,2437]   *
  5. 1040 REM*-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-*
  6. 1050 :
  7. 1060 REMMAKE LABELS ON PLAIN PAPER USING  THE DATA STATEMENTS AT END OF PROGRAM
  8. 1070 REMQUESTIONS OR COMMENTS WELCOME.
  9. 1080 POKE53280,11:POKE53281,11:DIMA$(20,4):  REM INCREASE DIMA$ IF MORE ADDRESSES
  10. 1090 REMARE ADDED TO END OF THIS PROGRAM    IN DATA STATEMENTS.
  11. 1100 PRINT"[147]"TAB(10)"[144] LABEL MAKER [159]":READU1$,U2$,U3$
  12. 1110 :  READX$:IFX$="*"GOTO1140
  13. 1120 :  C=C+1:A$(C,1)=X$
  14. 1130 :  READA$(C,2),A$(C,3),A$(C,4):GOTO1110
  15. 1140 PRINT"[153] F R O M : [223]"
  16. 1150 PRINT"P = PROGRAMMED ADDRESS":PRINT"E = ENTER YOUR 'FROM-' ADDRESS"
  17. 1160 GETI$:IFI$<>"P"ANDI$<>"E"GOTO1160
  18. 1170 PRINT"[147]"TAB(10)" LABEL PRINTER "
  19. 1180 PRINT"[169] FROM:   3 LINES:NO COMMAS: MAX--->"
  20. 1190 IFI$<>"P"GOTO1220
  21. 1200 PRINT"LINE 1 [146]";U1$:PRINT"LINE 2 [146]";U2$:PRINT"LINE 3 [146]";U3$
  22. 1210 L$(1)=U1$:L$(2)=U2$:L$(3)=U3$:GOTO1280
  23. 1220 INPUT"LINE 1 [146]   MAX=17:";L$(1)
  24. 1230 IF LEN(L$(1))>17 THENPRINT"MAX=17 CHARACTERS!":GOTO1220
  25. 1240 INPUT"LINE 2 [146] MAX=19:";L$(2)
  26. 1250 IF LEN(L$(2))>19THENPRINT"MAX=19 CHARACTERS!":GOTO1240
  27. 1260 INPUT"LINE 3 [146] MAX=19:";L$(3)
  28. 1270 IF LEN(L$(3))>19THENPRINT"MAX=19 CHARACTERS!":GOTO1260
  29. 1280 PRINT"                             MAX--->[146]"
  30. 1290 INPUT"DO AGAIN <Y/N>  N[157][157][157]";A$
  31. 1300 IFA$="Y"THENGOTO1140
  32. 1310 PRINT"[158]     T O : [223]"
  33. 1320 PRINT"P = PROGRAMMED ADDRESS",,"E = ENTER YOUR 'TO-' ADDRESS"
  34. 1330 GETI$:IFI$=""GOTO1330
  35. 1340 IFI$="E"GOTO1370
  36. 1350 PRINT"[145][145][145]":FORF=1TOC: PRINT" "F" [146]";A$(F,1)"               ":NEXT
  37. 1360 INPUT"ENTER NUMBER OF PERSON TO ";I$ : I=VAL(I$) : IFI<1ORI>C+1THENI=0
  38. 1370 PRINT"[169]   TO:   4 LINES:NO COMMAS: MAX--->"
  39. 1380 IFITHEN FORF=1TO4:L$(F+3)=A$(I,F):PRINT"LINE "F" [146]";L$(F+3):NEXT : GOTO1470
  40. 1390 INPUT"LINE 1 [146]   MAX=17:";L$(4)
  41. 1400 IF LEN(L$(4))>17 THENPRINT"MAX=17 CHARACTERS!":GOTO1390
  42. 1410 INPUT"LINE 2 [146] MAX=19:";L$(5)
  43. 1420 IF LEN(L$(5))>19THENPRINT"MAX=19 CHARACTERS!":GOTO1410
  44. 1430 INPUT"LINE 3 [146] MAX=19:";L$(6)
  45. 1440 IF LEN(L$(6))>19THENPRINT"MAX=19 CHARACTERS!":GOTO1430
  46. 1450 INPUT"LINE 3 [146] MAX=19:";L$(7)
  47. 1460 IF LEN(L$(7))>19THENPRINT"MAX=19 CHARACTERS!":GOTO1450
  48. 1470 PRINT"                             MAX--->[146]
  49. 1480 [153] "COLOR: 0=BLK  1=BLUE  2=GREEN  3=RED"
  50. 1490 [133]"ENTER COLOR (0-3)  1CMDCMDCMD";CC
  51. 1500 [139]CC[179]0[176]CC[177]3[167]1490
  52. 1510 [151]53280,6:[153]"PRESS  R WAIT  WHEN READY",,"PRESS  A WAIT  TO ABORT"
  53. 1520 [161]I$:[139]I$[179][177]"R"[175]I$[179][177]"A"[137]1520
  54. 1530 [139]I$[178]"A"[167][138]
  55. 1540 [143] START PRINTING LABEL NOW
  56. 1550 [159]4,6:[159]2,6,2 :[143] ASCII, COLOR
  57. 1560 [159]1,6,1:[159]3,6,3: [143] PLOT, SIZE
  58. 1570 [152]3,2
  59. 1580 [152]2,CC:[143] LINE COLOR
  60. 1590 [129]F[178][171]1[164][171]4[169][171]2:[152]1,"M",0,F:[152]1,"D",479,F:[152]1,"D",0,F:[130]
  61. 1600 [129]G[178]1[164]3:[152]4:[130]
  62. 1610 [129]F[178][171]1[164][171]4[169][171]2:[152]1,"M",0,F:[152]1,"D",479,F:[152]1,"D",0,F:[130]
  63. 1620 [129]G[178]1[164]4:[152]4:[130]
  64. 1630 [129]F[178][171]1[164][171]4[169][171]2:[152]1,"M",0,F:[152]1,"D",479,F:[152]1,"D",0,F:[130]
  65. 1640 [152]2,CC:[152]1,"M",0,245:[152]3,1:[152]4,"FM:";
  66. 1650 [152]3,2;
  67. 1660 [152]4,[163]1);L$(1)
  68. 1670 [152]4,[163]1);L$(2)
  69. 1680 [152]4,[163]1);L$(3)
  70. 1690 [152]3,1:[152]4,"TO:";:[152]3,2;
  71. 1700 [152]4,[163]1);L$(4)
  72. 1710 [152]4,[163]1);L$(5)
  73. 1720 [152]4,[163]1);L$(6)
  74. 1730 [152]4,[163]1);L$(7) : [152]4
  75. 1740 [160]2:[160]4 : [153]
  76. 1750 [153]"OPEN A = ANOTHER LABEL"
  77. 1760 [153]" D = DONE"
  78. 1770 [161]I$:[139]I$[179][177]"A"[175]I$[179][177]"D"[137]1770
  79. 1780 [139]I$[178]"A"[167][138]
  80. 1790 [128]
  81. 1800 [143]*DATA FORMAT
  82. 1810 [143]FIRST DATA,YOUR RETURN ADDRESS,         3 LINES SEPARATED BY COMMAS
  83. 1820 [143]ALL OTHER ADDED DATA MUST HAVE          4 LINES SEPARATED BY COMMAS
  84. 1830 [143]IF YOU ARE GOING TO USE COMMAS,         PUT THE DATA STATEMENT IN QUOTES
  85. 1840 [131]YOUR NAME,STREET ADDRESS,"CITY, STATE,ZIP"
  86. 1850 [131] ROBERT LAPRAD,600 HICKS ROAD,"NASHVILLE, TN",37221
  87. 1860 [131] NAMEA- - -,ADDRESSA1,ADDA2,"CITY, STATE,ZIP"
  88. 1870 [131] NAMEB- - -,ADDRESSB1,ADDB2,ADDB3
  89. 1880 [143]LAST DATA CHARACTER MUST BE A *
  90. 1890 [131]*
  91.